10 V=53248:S=54272:POKEV+21,0:POKES+24,15:SYS5264:D$=""
20 OPEN1,8,0,"2. PART,P,R":FORI=1TO10:INPUT#1,HI$(I):NEXT:CLOSE1
30 PRINTLEFT$(D$,19)"[159]IF YOU DON'T WANT TO PLAY WITH THE
32 [153]"CURRENT HIGHSCORES THEN SWITCH OFF
34 PRINT"THE DISK-STATION NOW.
40 [153]D$"ONDEF   PRESS ANY KEY TO START 'RUNANWAY'!
50 POKE198,0:WAIT198,1:POKE198,0
60 POKE768,185:OPEN15,8,15,"I":CLOSE15:POKE768,139:IFST<>-128GOTO90
80 FORI=1TO10:HI$(I)="0000000  00  ???":NEXT
90 FORI=0TO39:B$=B$+" ":UP$=UP$+"[196]":DO$=DO$+"[198]":M$=M$+"@":NEXT
92 FORI=0TO9:READH(I):NEXT
94 DIMTR(11):FORI=0TO10:READT0(I),T1(I),TN(I):NEXT:FORI=0TO11:READTR(I):NEXT
96 DIML$(19),I$(13):FORI=0TO19:READL$(I):NEXT:FORI=0TO13:READI$(I):NEXT
100 GOSUB200:SYS5666
101 PRINT"[213]"LEFT$(UP$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
102 PRINTLEFT$(DO$,38)"[203]":FORI=1TO800:NEXT
104 PRINTSPC(5)"CREATED [150]1985 [159]BY [158]J_RGEN PAASCH":FORI=1TO800:NEXT
110 PRINT"[155]@@[152]\[157][157][157][155]@@@[152]\ [155]@@[152]\[155] @@[152]\ [155]@@[152]\ [155]@@[152]\[193][155]@@ [152][193][155]@@ [152][193][155]@@ [152][193][155]";
112 PRINT"@@ [152][193][155]@@@[145][157][157][157][152][193][155]@@
114 [129]I[178]1[164]6:[153]"LIST"M$;:[130]:[153]"FOR"B$B$B$;
115 [151]V[170]28,0:[153]"  PRESS BUTTON ON JOYSTICK @2 TO PLAY. 
116 FORI=1TO3:PRINTLEFT$(D$,19)SPC(6*I-2)"[151] [149] [157] [157][157][152]  ":NEXT
117 FORI=4TO6:PRINTLEFT$(D$,19)SPC(6*I-2)"[149] [151] [157][149][157] [157][152]  ":NEXT
124 SYS5526:FORI=0TO19:POKE1864+120*RND(1),198+4*RND(1):NEXT
126 POKE4338,0:POKE4339,0:POKE4337,2:POKEV+1,189:POKEV+39,1:Q=.:POKE182,0
128 H=0:FORI=1TO20:SYS4794:FORJ=0TO60:NEXTJ:SYS5308:IFPEEK(182)=5GOTO4300
129 NEXT:Q=Q+1:IFQ>3GOTO6000
130 POKEV+16,64:X=48*INT(RND(1)*6+1)+4:IFX>255THENPOKEV+16,65:X=X-256:H=1
132 POKE2040,196:POKEV,X:POKEV+21,127:D=0
134 SYS4794:D=D+1:IFD=4THEND=0
136 POKEV+1,PEEK(V+1)+1:POKE2040,196+D:FORI=1TO55:NEXT:SYS5308:IFPEEK(182)=5GOTO4300
137 IFPEEK(V+1)<218GOTO134
138 SYS4794
140 K=0:L=.:Y=48*INT(RND(1)*6+1)+4:IFY>255THENY=Y-256:K=1
141 IFH=KANDY=XGOTO140
142 D=200:J=2:IF(Y+256*K)<(X+256*H)THEND=204:J=-2
144 SYS4794:L=L+1:IFL=4THENL=0
146 X=X+J:IFX<.ANDH=1THENX=254:POKEV+16,64:H=0
148 IFX>255THENX=.:POKEV+16,65:H=1
149 SYS5308:IFPEEK(182)=5GOTO4300
150 POKEV,X:POKE2040,D+L:FORI=1TO55:NEXT:IFX<>YORH<>KGOTO144
152 D=0
154 SYS4794:D=D+1:IFD=4THEND=0
155 SYS5308:IFPEEK(182)=5GOTO4300
156 POKEV+1,PEEK(V+1)-1:POKE2040,192+D:FORI=1TO55:NEXT:IFPEEK(V+1)>189GOTO154
158 POKEV+21,126:GOTO128
200 PRINT"[147]"D$:FORI=0TO1E3:NEXT:POKE53272,(PEEK(53272)AND240)OR2
203 PRINTSPC(7)"[158][192][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
204 [141]216:[153][166]7)" GETRNDRNDGETNEWRNDGETNEWNEWGETNEWRNDGETNEWRNDWAITLOGRNDNEWGETNEWRNDGETNEWRND
205 GOSUB216:PRINTSPC(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
206 [141]216:[153][166]7)" WAITLOGLOGLOGLOG  LOGNEWNEWWAITLOGLOGNEWWAITLOG LOG LOGNEWWAITLOGNEWNEWWAITLOGLOGRND
207 GOSUB216:PRINTSPC(7)"[175][146] S  O  F  T  W  A  R  E[158][161]
208 [141]216:[153][166]7)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW
209 FORI=0TO17:GOSUB216:PRINT:NEXT:PRINT"
210 [129]I[178]1[164]1E3:[130]:U$[178]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWPOSANDTO          TOANDPOSNEW"
211 J$[178]"WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAITTAB(WAITUSRWAITFRENEWPOSANDTO TOANDPOSNEWWAITFREWAITUSRWAITTAB("
212 [129]I[178]1[164]13:[153]""[166]7)[202](U$,I,13)[202](U$,32[171]I)
213 [153][166]7)[202](J$,I[170]I,26)[202](J$,77[171]I[171]I):[141]216:[130]
214 U$[178]"        P R E S E N T S":[129]J[178]0[164]1E3:[130]:[129]I[178]1[164]8
215 [153]""[166]11)[202](U$,I,9)[202](U$,25[171]I):[129]J[178]0[164]99:[130]J,I
216 [142]
900 LV[178]0:SC[178]0:LF[178]2
905 [139]LV[173]3[178][181](LV[173]3)[175]LV[177]0[167]CH[178]1
906 [139]LV[173]3[177][181](LV[173]3)[175]CH[178]1[167]CH[178]0:LV[178]LV[171]1
907 [139]CH[178]0[137]910
908 [137]3500
910 [151]V[170]21,.:[153]"LOADDEFGET READY TO ENTER NEXT DUNGEON:
912 PRINT"[158]"L$(10)"[145][145][145]"L$(11)"[145][145][145]"L$(12)"[145][145][145]"L$(11)"[145][145][145]"L$(10)"";
914 U$=STR$(LV+1):FORI=2TOLEN(U$):PRINT"[145][145][145]"L$(ASC(MID$(U$,I))-48);:NEXT
920 LV=LV+1:FORI=0TO23:POKES+I,0:NEXT
921 POKES+5,95:POKES+6,170:POKES+12,10:POKES+13,90
922 FORI=8TO11:X=TR(I):GOSUB3010:POKES+1,J:POKES,K:POKES+4,33
924 FORJ=1TO7:FORK=6TO10:POKES+24,K:NEXT:FORK=15TO7STEP-1:POKES+24,K
926 NEXTK,J:POKES+4,32:POKES+11,32:NEXT:FORI=0TO300:NEXT
1000 POKEV+17,PEEK(V+17)AND239:POKEV+16,0:POKEV+28,0:PRINT"[147]":GOSUB3300
1010 PRINT"[213]"LEFT$(UP$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
1020 PRINTLEFT$(DO$,38)"[203][155]@@[152]\[157][157][157][155]@@@[152]\ [155]@@[152]\[155] @@[152]\ [155]@@[152]\[193][155]@@ [152][193][155]@@ [152][193][155]";
1022 PRINT"@@ [152][193][155]@@[145][157][157][152][193][155]@
1100 [129]I[178]1[164]5:[153][200](D$,5[170]I)"LIST"[200](M$,31)"":[130]
1110 [129]I[178]1[164]15:[153][200](D$,10[170]I)"FOR"[200](B$,31)"":[130]
1120 [129]I[178]0[164]29:[151]1424[170][181](15[172][187](1))[172]40[170]31[172][187](1),198[170]4[172][187](1):[130]
1200 [139]LV[173]2[178][181](LV[173]2)[137]1300
1210 [158]4153:L[178]27:U$[178]"VERIFY POKE CMDCMDVERIFY POKE CMDCMDPRINT#  "
1290 [137]1400
1300 [158]4189:L[178]2:U$[178]"POKE VERIFY CMDCMDPOKE VERIFY CMDCMDPRINT#  "
1400 [151]S[170]4,0:[151]S[170]24,15
1401 [153][200](D$,8)[166]L)U$:[151]V[170]14,17[170]L[172]8[171]7[172](L[177]3):[158]4199
1402 [151]2047,211[170](L[177]3):[151]V[170]12,[194](V[170]14)[171]7[172](L[179]3):[151]V[170]21,192
1403 [151]V[170]17,[194](V[170]17)[176]16:[129]I[178]1[164]1E3:[130]:[151]S[170]11,0:[151]S[170]24,15
1404 [151]S[170]4,0:[151]S[170]5,0:[151]S[170]6,250:[151]S[170]4,33:[129]I[178]24[164]40[169]2
1406 [129]J[178]0[164]1:[151]V[170]21,192[170]J:[129]K[178]I[170]J[164]40:[151]S[170]1,K:[130]K,J,I:[151]S[170]4,32
1408 [129]I[178]40[164]84:[151]S[170]1,I:J[178]2[174]2:[130]:[151]S[170]4,0:[129]I[178]1[164]666:[130]
1410 [139]CH[178]1[137]1610
1412 [141]3100
1414 [151]V[170]28,48:[151]V[170]37,2:[151]V[170]38,0
1420 D[178]0:[151]V[170]8,39[171]192[172](L[177]2):[151]V[170]9,100:[151]V[170]43,5:[151]2044,209:[151]V[170]21,209
1422 [129]I[178]0[164]6:[129]J[178]0[164]80:[130]:[151]V[170]8,[194](V[170]8)[171]1[171]2[172](L[177]3):[151]2044,209[171]D:D[178]1[171]D
1428 [151]V[170]9,102[170]I[170]I:[130]:[129]I[178]0[164]500:[130]:[141]3200
1436 [151]V[170]10,[194](V[170]8):[151]V[170]11,[194](V[170]9):[151]V[170]44,5
1438 [151]2045,209:[151]V[170]21,241:[151]4345,0:[151]4344,LV[170]1:[151]4343,0
1440 [151]182,0:[151]4342,[194](V[170]12)[171]4:[151]4338,0:[151]4339,0:[151]4337,5
1442 [151]4336,0:[151]4335,56
1500 [158]4869:[129]J[178]0[164]20:[130]:[139][194](182)[178].[137]1500
1510 [139][194](182)[178]2[137]2000
1515 [139][194](182)[178]3[137]5000
1520 [151]S[170]11,0:[129]J[178]0[164]200:[130]
1522 [129]I[178]0[164]4:[151]S[170]11,.:[151]S[170]13,.:[151]S[170]12,42:[151]S[170]7,H(I):[151]S[170]8,H(I[170]5)
1524 [151]S[170]11,33:[129]J[178]0[164]66[171]99[172](I[177]1)[171]66[172](I[178]2):[130]J,I:[129]J[178]0[164]400:[130]
1530 [151]S[170]11,0:[141]3100
1540 D[178].:[129]I[178]0[164]8:D[178]2[171]D:[151]2040,193[170]D:[129]J[178]0[164]50:[130]:[151]S[170]4,0
1542 [151]V[170]1,[194](V[170]1)[171]1:[151]S[170]1,50:[151]S[170]6,0:[151]S[170]5,2:[151]S[170]4,129:[130]
1544 [151]V[170]21,240:[129]I[178]0[164]200:[130]:[141]3200:SC[178]SC[170]300:[141]3400
1556 [151]V,[194](V[170]10):[151]V[170]1,[194](V[170]9):[151]182,0
1558 [158]4614:[129]J[178]0[164]2:[130]
1560 [139][182]([194](V[170]8)[171][194](V[170]10))[177]3[176][182]([194](V[170]9)[171][194](V[170]11))[177]1[137]1558
1562 [151]V[170]21,208:D[178].:[129]K[178]0[164]2:[151]V[170]43,5[171]K[171]K[171]12[172](K[178]2):[129]I[178]0[164]3
1564 D[178]1[171]D:[151]2044,208[170]D:[129]J[178]0[164]33:[130]J,I,K:[151]S[170]4,.:[151]S[170]1,9:[151]S[170]6,0
1566 [151]S[170]5,12:[151]V[170]43,1:[151]V[170]28,0:[151]S[170]4,129:[129]I[178]0[164]14
1568 [151]2044,216[170]I:[129]J[178]0[164]33:[130]J,I:[151]V[170]21,192
1600 [141]3600:[129]I[178]0[164]1400:[130]:[137]905
1610 [151]V[170]28,.:[151]V[170]37,7:[129]I[178]1[164]5:[151]V[170]39[170]I,7
1612 [151]V[170]I[170]I,0:[151]V[170]1[170]I[170]I,156:[130]:[129]I[178].[164]9:[151]4992[170]I,.:[130]
1614 [129]I[178]1[164]5:[151]S[170]4,0:[151]S[170]5,10:[151]S[170]6,7:[151]S[170]4,33:[151]V[170]I[170]I,42[172]I[170]8
1615 [151]2040[170]I,230:[151]V[170]21,[194](V[170]21)[176](2[174]I):[129]J[178]0[164]4
1616 [151]S[170]1,50[171]5[172]J[171]5[172]I:[151]2040[170]I,230[171]J:[129]K[178]0[164]33:[130]K,J
1617 [151]V[170]28,[194](V[170]28)[176](2[174]I):[151]V[170]39[170]I,10
1618 [151]2040[170]I,213:[151]S[170]4,32:[129]J[178]0[164]99:[130]J,I:[151]S[170]4,0:[151]S[170]24,143
1619 :[151]S[170]15,255:[151]S[170]19,255:[151]S[170]18,129
1620 [151]182,0:[151]4342,[194](V[170]12)[171]4:[151]4338,0:[151]4339,0:[151]4337,5
1622 [151]4336,0:[151]4335,56:[151]4990,4:[151]4989,213:[151]5476,LV[173]3
1624 [139]LV[177]5[167][151]5476,LV[173]3[171]1
1630 [158]5477:[129]J[178]1[164]20:[130]:[139][194](182)[178].[137]1630
1634 [139][194](182)[178]3[137]5000
1635 [139][194](182)[178]2[137]5100
1640 [151]S[170]11,0:[129]J[178]0[164]200:[130]
1642 [129]I[178]0[164]4:[151]S[170]11,.:[151]S[170]13,.:[151]S[170]12,42:[151]S[170]7,H(I):[151]S[170]8,H(I[170]5)
1644 [151]S[170]11,33:[129]J[178]0[164]66[171]99[172](I[177]1)[171]66[172](I[178]2):[130]J,I:[129]J[178]0[164]400:[130]
1646 [151]S[170]11,0:[141]3100
1650 D[178].:[129]I[178]0[164]8:D[178]2[171]D:[151]2040,193[170]D:[129]J[178]0[164]50:[130]:[151]S[170]4,0
1652 [151]V[170]1,[194](V[170]1)[171]1:[151]S[170]1,50:[151]S[170]6,0:[151]S[170]5,2:[151]S[170]4,129:[130]
1654 [151]V[170]21,254:[129]I[178]0[164]200:[130]:[141]3200:SC[178]SC[170]100:[141]3400
1656 [129]I[178]0[164]8:[158]5155:[129]J[178]0[164]20:[130]J,I:[151]182,0
1660 [129]I[178]2[164]10[169]2:J[178]V[170]I:[151]J,[194](J)[170][180](136[171][194](J))[172]2
1662 J[178]V[170]I[170]1:[151]J,[194](J)[170][180](176[171][194](J))[172]2:[130]:[158]5166
1664 [158]5232:[139][194](182)[178]0[137]1660
1665 [129]I[178]0[164]8:[158]5166:[129]J[178]0[164]99:[130]J,I
1666 [151]V[170]21,194:[151]2046,212:[158]5264:[151]S[170]5,13:[151]S[170]1,7
1668 [151]V[170]40,7:[151]V[170]28,0:[151]V[170]21,192:[151]V[170]2,124:[151]V[170]3,165:[151]V[170]23,66
1669 [151]V[170]29,2:[151]S[170]4,129:[151]V[170]21,194:[129]I[178]0[164]14:[151]2041,216[170]I
1670 [129]J[178]0[164]30:[130]J,I:[151]V[170]21,192:[129]I[178]0[164]62:[151]704[170]I,.:[130]:[151]2041,11
1672 [151]V[170]29,0:[151]V[170]23,64:[151]V[170]2,136:[151]V[170]3,180:[151]V[170]21,194:[151]V[170]40,1
1674 [129]I[178]1[164]1E3:[130]:[153][200](D$,15)[166]8)"FORCONGRATULATIONS!
1676 PRINTSPC(7)"EXTRA LIFE AWARDED
1678 [158]5264:[151]S[170]5,12:[151]S,118:[151]S[170]1,46:[151]S[170]4,33:[129]J[178]0[164]500:[130]
1680 [158]5264:[151]S[170]5,12:[151]S,219:[151]S[170]1,43:[151]S[170]4,33:[129]J[178]0[164]500:[130]
1682 [158]5264:[151]S[170]5,12:[151]S,118:[151]S[170]1,46:[151]S[170]4,33:[129]J[178]0[164]500:[130]
1684 [158]5264:[151]S[170]5,12:[151]S,18:[151]S[170]1,39:[151]S[170]4,33:[129]J[178]0[164]1E3:[130]
1686 [158]5264:[151]S[170]5,143:[151]S[170]4,33:[129]I[178]0[164]41[169]3:[151]S[170]1,20[170]I[170]I
1688 [129]J[178]0[164]2:[151]725[170]J[170]I,[194](12565[170]J[170]I):[130]:[151](V[170]3),[194](V[170]3)[171]1:[130]
1690 [151]S[170]4,32:LF[178]LF[170]1:[129]I[178]0[164]800:[130]:[158]5264:[151]S[170]1,20:[151]S[170]5,79:[151]S[170]4,129
1692 [153][200](D$,20)[166]72)"LIFES:CMDCMDCMDCMDCMDCMDSYS"[200]("^^^^^^^",LF):[151]S[170]4,128
1694 [141]3600:[129]I[178]1[164]500:[130]:[158]5264:[151]S[170]5,77:[151]S[170]4,33:J[178]6
1696 [129]I[178]0[164]99:J[178]J[170]1:[151]S[170]1,J:[151]725[170]40[172][187](1),0:[130]
1698 [151]S[170]4,32:[151]V[170]21,192:[129]J[178]0[164]1E3:[130]:[158]5264:[137]905
1700 [129]I[178]1[164]1E3:[130]:D[178]196
1702 [158]5264:D[178]D[170]1:[139]D[178]200[167]D[178]196:[151]S[170]5,2:[151]S[170]1,20:[151]S[170]4,129:[158]5166
1704 [151]182,0:[151]2040,D:[151]V[170]1,[194](V[170]1)[170]1:[139][194](V[170]1)[179]255[137]1702
1710 [129]I[178]2[164]10[169]2:J[178]V[170]I:[151]J,[194](J)[170][180](136[171][194](J))[172]2
1712 J[178]V[170]I[170]1:[151]J,[194](J)[170][180](176[171][194](J))[172]2:[130]:[158]5166
1714 [158]5232:[139][194](182)[178]0[137]1710
1715 [129]I[178]0[164]8:[158]5166:[129]J[178]0[164]99:[130]J,I
1716 [151]V[170]21,194:[158]5264:[151]S[170]5,12:[151]S[170]1,39:[151]S[170]4,129
1718 [151]V[170]2,124:[151]V[170]3,165:[151]V[170]23,66:[151]V[170]29,2
1720 [129]I[178]0[164]20:[158]5166:[129]J[178]0[164]99:[130]J,I
1722 [153][200](D$,22)[166]8)"FORSORRY, NO BONUS!
1724 SYS5264:POKES+5,14:POKES+4,33:FORI=56TO12STEP-2
1725 FORK=0TO1:FORJ=I-KTOI-K-10STEP-1:POKES+1,J
1726 NEXTJ,K:SYS5166:NEXT:SYS5264:POKES+5,13:POKES+4,129:FORI=0TO165:POKES+1,I
1728 POKEV+3,165-I:NEXT:POKES+4,128:FORI=0TO1E3:NEXT:GOTO905
2000 POKEV+39,3:J=99:POKES+4,0:POKES+6,0:POKES+5,13:POKES,0:POKES+4,33
2010 POKES+1,J:J=J-1:IFJ<.THENJ=.
2020 SYS4614:IFABS(PEEK(V+8)-PEEK(V+10))>3ORABS(PEEK(V+9)-PEEK(V+11))>1GOTO2010
2022 POKEV+21,209:D=.:POKES+4,0:POKES+6,0:POKES+5,12:POKES+4,33
2024 FORI=36TO10STEP-1:FORJ=0TO10:POKES+1,J+I:NEXT:D=10-D:POKEV+39,3+D:NEXT
2026 POKEV+39,7:POKES+4,0:POKES+1,9:POKES+6,0:POKES+5,12:POKES+4,129
2028 FORI=0TO14:POKE2040,216+I:FORJ=0TO33:NEXTJ,I:POKEV+21,208:D=.:FORI=0TO12
2030 D=1-D:POKE2044,208+D:FORJ=0TO33:NEXTJ,I:POKEV+1,110:POKEV,PEEK(4342)
2032 POKE182,0:SYS4614:SYS4679:IFPEEK(182)=.GOTO2032
2034 POKE2044,209:FORI=0TO500:NEXT:GOSUB3100:D=0:FORI=0TO8:POKEV+9,PEEK(V+9)-1
2036 POKE2044,208+D:D=1-D:FORJ=0TO30:NEXTJ,I:POKEV+21,192:FORJ=0TO500:NEXT
2038 GOSUB3200:FORJ=0TO500:NEXT
3000 FORI=0TO23:POKES+I,0:NEXT
3001 POKES+5,90:POKES+6,170:POKES+12,10:POKES+13,90
3002 FORI=0TO10:X=T0(I):GOSUB3010:POKES+1,J:POKES,K:POKES+4,33
3004 X=T1(I):IFX>0THENGOSUB3010:POKES+8,J:POKES+7,K:POKES+11,33
3006 FORJ=1TOTN(I):FORK=6TO10:POKES+24,K:NEXT:FORK=15TO7STEP-1:POKES+24,K
3008 NEXTK,J:POKES+4,32:POKES+11,32:NEXT:IFLF>.GOTO4000
3009 GOTO3020
3010 J=INT(X/256):K=X-256*J:RETURN
3012 X=X^1.02:GOTO3010
3020 IFQ=(null)GOTO4100
3021 POKES+5,90:POKES+6,170:POKES+12,10:POKES+13,90
3022 FORI=0TO10:X=T0(I):GOSUB3012:POKES+1,J:POKES,K:POKES+4,33
3024 X=T1(I):IFX>0THENGOSUB3010:POKES+8,J:POKES+7,K:POKES+11,33
3026 FORJ=1TOTN(I):FORK=6TO10:POKES+24,K:NEXT:FORK=15TO7STEP-1:POKES+24,K
3028 NEXTK,J:POKES+4,32:POKES+11,32:NEXT
3030 PRINTLEFT$(D$,7)SPC(8)"[158]  [180][181] [171][219] [182][183] [184][165]  "SPC(25)"  [180][186] [160][163] [184][165] [171][179]  
3040 [129]L[178]0[164]1:[151]S[170]5,90:[151]S[170]6,170
3042 [129]I[178]0[164]3:X[178]TR(I):[141]3010:[151]S[170]1,J:[151]S,K:[151]S[170]4,33
3044 [129]J[178]1[164]TR(I[170]4):[129]K[178]6[164]12[169]2:[151]S[170]24,K:[130]:[129]K[178]15[164]7[169][171]2:[151]S[170]24,K
3046 [130]K,J:[151]S[170]4,32:[151]S[170]11,32:[130]I,L:Q[178][255]:[151]V,136:[151]V[170]1,218
3048 [151]V[170]28,1:[151]V[170]39,15:[151]V[170]37,12:[151]V[170]38,0:[151]2040,231
3050 [151]V[170]21,193:[137]3001
3100 [151]S[170]4,0:[151]S[170]5,0:[151]S[170]6,249:[151]S[170]4,129:[129]I[178]0[164]11
3102 [151]S[170]1,9[170]I[170]I:[151]731[170]3[172]I,.:[151]732[170]3[172]I,.:[151]V[170]13,86[171]I[171]I
3104 [129]J[178]0[164]33:[130]J,I:[151]S[170]4,128:[129]I[178]0[164]1E3:[130]:[142]
3200 [151]S[170]4,0:[151]S[170]5,0:[151]S[170]6,249:[151]S[170]4,129:[129]I[178]11[164]1[169][171]1
3202 [151]S[170]1,9[170]I[170]I:[151]V[170]13,88[171]I[171]I:[151]731[170]3[172]I,[194](13595[170]3[172]I)
3204 [151]732[170]3[172]I,[194](13596[170]3[172]I):[129]J[178]0[164]33:[130]J,I:[151]S[170]4,128
3206 [129]I[178]0[164]100:[130]:[151]S[170]4,0:[142]
3300 [153]""[166]72)"CREATEDCMDCMDCMDCMDCMDSYSOPENBYCMDCMDCMDCMDSYSJ_RGENCMDCMDCMDCMDCMDCMDPAASCH
3310 PRINTSPC(72)"[154]HIGH-[157][157][157][157][157]SCORE:[157][157][157][157][157][157][158]"LEFT$(HI$(1),7)
3320 PRINTLEFT$(D$,13)SPC(72)"[150]SCORE:[157][157][157][157][157][157][158]0000000
3330 [153][200](D$,16)[166]72)"LISTDUNGEONCMDCMDCMDCMDCMDCMDPRINT#LEVELCMDCMDCMDCMDCMDSYS>"LV"<
3335 IFCH=1THENPRINTLEFT$(D$,17)SPC(32)"[159] FLAME [157][157][157][157][157][157]STAGE [157][157][157][157][157][158]"INT(LV/3)"[157] <
3340 [153][200](D$,20)[166]72)"LIFES:CMDCMDCMDCMDCMDCMDSYS"[200]("^^^^^^^",LF);
3345 [139]LF[179]7[167][153]" ";
3350 [153]:[153][166]72)"CLRTIME: CMDCMDCMDCMDCMDCMD  SYS     
3400 U$=MID$(STR$(SC),2):PRINTLEFT$(D$,15)SPC(39-LEN(U$))"[158]"U$
3410 RETURN
3500 POKEV+21,.:PRINT"[147][150]"SPC(10)"PREPARE TO ENTER THE
3502 [153][166]7)"SYSORTAN^^ OR^OR=^OR^  ORTAN^OR=EXPOR^OR^OR^
3504 PRINTSPC(7)"[171][192] [221] [171][179][221][221][221][171]   [173][192][174] [221] [171][179][221][174][171]
3506 [153][166]7)"EXP  /EXPEXPEXPEXP //EXP  /TANEXP/EXP/EXPEXP/EXP/EXP
3508 PRINTSPC(15)"[154][178][174][157][157][221][221][176][174][157][157][157][157][189][189][173][189][190]";
3510 U$=STR$(INT(LV/3)):FORI=2TOLEN(U$):PRINT"[145][145][145]"L$(ASC(MID$(U$,I))-48);:NEXT
3512 GOTO920
3600 POKE182,0:FORI=1TO1E3:NEXT:PRINTD$SPC(32)"[145][150]BONUS:
3602 [129]I[178]0[164]23:[151]S[170]I,0:[130]
3604 [151]S[170]4,0:[151]S[170]5,5:[151]S[170]1,15:[151]S[170]4,129:SC[178]SC[170]5:[141]3400:[151]4336,20
3606 [158]4892:[139][194](182)[178].[137]3604
3608 [142]
4000 LF[178]LF[171]1:[141]3300
4008 [158]4199:[158]4153:[139]L[178]2[167][158]4189
4010 [151]V[170]23,64:[137]1403      
4100 [151]4336,0:[151]182,0:[129]I[178]0[164]9:[139]SC[177][197]([200](HI$(10[171]I),8))[167]Q[178]10[171]I
4102 [130]:[139]Q[178][255][167][129]I[178]0[164]1E3:[130]:[137]6000
4104 [141]3300:[151]4335,56:[153][200](D$,12)"FOR>>> CONGRATULATIONS! <<<
4106 PRINT"YOUR SCORE IS REACHING":PRINT"RANK"Q"[157] IN THE TOP TEN.
4108 X[178]0:N$[178]"":[153]"PLEASE ENTER YOUR INITIALS:"[166]64)" CMDVALVALONCMD  CMDVAL
4109 SYS4892:IFPEEK(182)>.GOTO4130
4110 IFX<3THENPRINTLEFT$(D$,19)SPC(13+X+X)"[255][157]";
4111 GETU$:IFU$=CHR$(13)ANDX>.GOTO4130
4112 IFU$=CHR$(20)ANDX>.THENPRINT" ":X=X-1:N$=LEFT$(N$,X):GOTO4109
4113 IFX>2GOTO4109
4114 IF(U$=>"A"ANDU$<="Z")ORU$=" "ORU$="-"ORU$="."GOTO4120
4116 PRINT" ":GOTO4109
4120 PRINTU$:N$=N$+U$:X=X+1:GOTO4110
4130 N$=LEFT$(N$+B$,3):U$=MID$(STR$(SC),2):FORI=10TOQSTEP-1:HI$(I)=HI$(I-1):NEXT
4132 HI$(Q)=LEFT$("0000000",7-LEN(U$))+U$
4134 U$=MID$(STR$(LV),2):HI$(Q)=HI$(Q)+LEFT$("  00",4-LEN(U$))+U$+"  "+N$
4150 POKE768,185:OPEN15,8,15,"I":CLOSE15:POKE768,139:IFST=-128GOTO6000
4200 OPEN1,8,15,"S:2. PART":CLOSE1
4210 OPEN1,8,1,"2. PART,P,W":FORI=1TO10:PRINT#1,HI$(I):NEXT:CLOSE1:GOTO6000
4300 POKEV+21,0:SYS5264:PRINT"[147]":POKES+5,12:POKES+1,9:POKES+4,129
4302 PRINT"[147][213]"LEFT$(UP$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
4303 PRINTLEFT$(DO$,38)"[203]":FORI=1TO333:NEXT
4304 PRINTSPC(5)"CREATED [150]1985 [159]BY [158]J_RGEN PAASCH":FORI=1TO333:NEXT
4310 PRINT" [150][178][192][174][178][174][176][174][178][176][174][176]  [176][174][176][174]  [176][178][174][174][174][178][174]  [176][192][174][176][174][176][178][174][178][174]
4312 [153]" CLR-TAN<- (null)^(null)(null)(null)(null)  (null)(null)-    (null) -<-   (null)OR^-<(null)(null)(null)-
4314 PRINT" [154][177][192][189][177][189][173][189][189][189][173][189]  [173][189][177]    [177] [189][189][177][189]  [173][192][189][189][189][189] [189][177][189]
4320 [153][166]11)"CHR$ONCMD(null)"[200](UP$,16)"RIGHT$CMDLEFT$":[153][166]12)"ONDEF(null) INSTRUCTIONS DEF(null)
4321 PRINT"[213][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][201][199]"SPC(38)"[200][202]"LEFT$(DO$,38)"[203]
4322 [153]D$[166]6)"ONONLISTPRESS FIREBUTTON TO CONTINUESYS
4330 I=0:J=1:K=0:POKE182,0:POKE4338,0:POKE4339,0:POKE4337,2
4332 K=K+1:IFK=66THENI=J:J=J+1:K=1:IFJ>13THENJ=0
4334 U$=I$(I)+I$(J):PRINTLEFT$(D$,19)""MID$(U$,K,38)"
4336 [158]5308:[139][194](182)[178]5[137]900
4340 [158]4794:[129]L[178]1[164]30:[130]:[137]4332
4900 [128]:[143][204]
5000 [158]4962:[158]5264:[151]S[170]5,14:D[178].:[151]S[170]4,33
5002 [129]I[178]40[164]10[169][171]1:D[178]1[171]D:[153]D$[166]32)[202]("WAIT",1[170]D,1)"SYSONOUT OFCMDCMDCMDCMDCMDCMD TIME 
5004 FORJ=0TO10:POKES+1,I-J:NEXTJ,I:FORJ=0TO800:NEXT:IFCH=1GOTO1700
5006 SYS5264:POKES+5,14:POKES+4,33
5008 FORI=0TO15:FORJ=60-I*2TO30-I*2STEP-1:POKES+1,J:NEXT:POKEV+1,PEEK(V+1)+1
5010 FORJ=0TO2:POKE892+J-I*3,.:NEXTJ,I:POKEV+1,PEEK(V+9):POKEV,PEEK(V+10)
5020 SYS4614:IFABS(PEEK(V+8)-PEEK(V+10))>3ORABS(PEEK(V+9)-PEEK(V+11))>1GOTO5020
5022 POKEV+21,208:POKEV+1,110:POKEV,PEEK(4342):GOTO2032
5100 SYS5264:POKES+5,12:POKES+1,55:POKES+4,129:SYS4962:FORI=0TO800:NEXT
5102 SYS5264:POKES+5,14:D=2:POKES+4,33:FORI=62TO10STEP-2:D=5-D:POKEV+39,D
5104 FORJ=ITOI-10STEP-1:POKES+1,J:NEXT:IFD=2THENSYS5166
5106 NEXT:D=196:GOTO1702
6000 POKEV+21,0:Q=.
6002 PRINT"[147][213]"LEFT$(UP$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
6004 PRINTLEFT$(DO$,38)"[203]";
6010 PRINTSPC(6)"[154][207][183][150]  THE TEN BEST RUNNERS  [146][154][183][208]
6012 [153][166]6)"SGN(null)DEFUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRCONT(null)+
6014 FORI=0TO18:PRINTSPC(6)"[180][180]"SPC(24)"[170][170]
6016 [130]:[153][166]6)"(null)(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRSQR
6018 PRINTSPC(9)"[158]TOP[157][157]2)[157][157]3)[157][157]4)[157][157]5)[157][157]6)[157][157]7)[157][157]8)[157][157]9)[157][157][157]10)
6020 [129]I[178]1[164]10:[153][200](D$,4[170]I[170]I)[166]14)HI$(I):[130]
6022 U$[178]"MAY THEY RUN FOREVER":[129]I[178]1[164]20
6024 [153][200](D$,4[170]I)"PRINT"[202](U$,I,1)[166]32)[202](U$,I,1)"":[130]
6030 [129]I[178]0[164]7:Q(I)[178].:[130]:[151]V[170]23,255:[151]V[170]29,255
6040 H[178][181](8[172][187](1)):[139]Q(H)[177].[137]6050
6042 [151]2040[170]H,216[170][181](3[172][187](1))[172]5:X[178][181](24[170]274[172][187](1)):Q(H)[178]1
6043 [151]V[170]39[170]H,[198]([202]("ACDEGJMN",1[170]8[172][187](1),1))[171]64
6044 [151]V[170]16,[194](V[170]16)[175](255[171]2[174]H):[139]X[177]255[167]X[178]X[171]256:[151]V[170]16,[194](V[170]16)[176](2[174]H)
6045 [151]V[170]H[170]H,X:[151]V[170]1[170]H[170]H,50[170]170[172][187](1)
6046 [151]V[170]21,[194](V[170]21)[176](2[174]H):[158]5264:[151]S[170]5,11:[151]S[170]1,8[172][187](1)[170]3
6047 [151]S[170]4,129
6050 [129]I[178].[164]7:[139]Q(I)[178].[137]6060
6051 Q(I)[178]Q(I)[170]1:[139]Q(I)[178]5[167]Q(I)[178]0:[151]V[170]21,[194](V[170]21)[175](255[171]2[174]I):[137]6060
6060 [130]:[158]5280:Q[178]Q[170]1:[139]Q[179]40[137]6040
6062 [151]V[170]21,0:[137]100
10000 [131]207,69,59,18,207,34,29,23,39,34
11000 [131]2146,1072,8,2146,851,5,2146,,2
11002 [131]2146,1072,8,2551,851,5,2408,,2
11004 [131]2408,1072,5,2146,,2,2146,851,5
11006 [131]2025,,2,2145,1072,12
12000 [131]5001,4455,3969,3746,10,4,12,18,1114,1250,1575,1487
14000 [131]"WAIT*NEWWAITRNDCMDCMDCMDGET GETWAITCMDCMDCMDSIN SINCMDCMDNEW"
14100 [131]"COSCMDCMDWAITLOGGETCMDGETCMDNEWWAITCOS"
14200 [131]"SINNEWWAITSINCMDCMDNEWSINCMDCMDCMDSINCMDNEWNEWNEW"
14300 [131]"SINNEWWAITSINCMDCMDNEWSINCMDCMDCMDWAITRND GETCMDCMDCMDWAITLOGNEWWAITCOS"
14400 [131]"WAITGET GETCMDCMDCMDLOGWAITNEWLOGCMDWAITGETCMDCOS"
14500 [131]"*NEWNEWCMDCMDCMDNEWNEWWAITSINCMDCMDCMDRND GETCMDCMDCMDWAITLOGNEWWAITCOS"
14600 [131]"SINNEWWAITSINCMDCMDCMDLOGWAITNEWRNDCMDCMDCMDWAITGET GETCMDCMDCMDWAITLOGNEWWAITCOS"
14700 [131]"*NEWRNDCMDSINCMDCMDGETCMDWAITLOG"
14800 [131]"SINNEWWAITSINCMDCMDCMDSINNEWSINCMDCMDCMDWAITGET GETCMDCMDCMDWAITLOGNEWWAITCOS"
14900 [131]"SINNEWWAITSINCMDCMDCMDSINNEWCOSCMDCMDCMDWAITRND GETCMDCMDCMDWAITLOGNEWWAITCOS"
15000 [131]"WAITGETCMDGETCMDGETCMDNEWNEWNEW","*NEWNEWCMDCMDCMDLOGWAITNEWCMDCMDGETCMDNEWNEWNEW","WAITGET GETCMDCMDCMDWAITSIN SINCMDCMDCMDGETWAIT GETCMDCMDNEW"
16000 [131],,,,,,
19000 [131]"                                         *** R U N A W A Y ***   "
20000 [131]"...WELCOME TO RUNAWAY, MY FRIEND! YOU ARE CAPTURED BY EVIL DEMONS"
20001 [131]" AND YOU HAVE TO ESCAPE OUT OF THE DUNGEONS OF DEATH. TO AVOID YO"
20002 [131]"UR ESCAPE, TWO MONSTER GUARDS ARE CHASING YOU. THEY WON'T BE FRIE"
20003 [131]"NDLY IF THEY CATCH YOU! YOUR ONLY CHANCE IS YOUR QUICKNESS AND YO"
20004 [131]"UR INTELLIGENCE. TRY TO ESCAPE TO THE DOOR IN THE BACKGROUND. IT "
20005 [131]"WILL OPEN IF YOU STAND EXACTLY IN FRONT OF IT. BUT DON'T LOOSE TI"
20006 [131]"ME. YOUR SCORE WILL BE INCREASED IN CASE OF ESCAPING. IN THE NEXT"
20007 [131]" DUNGEONS THE MONSTERS WILL BECOME A LITTLE FASTER...   EVERY THR"
20008 [131]"EE DUNGEONS YOU'LL HAVE THE CHANCE OF GAINING AN EXTRA LIFE IN TH"
20009 [131]"E FLAME-STAGE. TRY TO ESCAPE WITHOUT TOUCHING A FLAME. BUT IF YOU"
20010 [131]" WERE BURNED OR OUT OF TIME IN A FLAME-STAGE YOU WON'T LOOSE A LI"
20011 [131]"FE...   PRESS [SHIFT] OR [SHIFT LOCK] TO PAUSE THE GAME...   HOW "
20012 [131]"FAR CAN YOU GET? GOOD LUCK...                                    "